home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU17.ARC / MSD NO DIRECTORY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  69 lines
  1. 10 POKE53280,0:POKE53281,0:PRINT"[154]";
  2. 20 R$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  3. 30 PRINT"[147]           [198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  4. 40 PRINT"            DIRECTORY NO LIST"
  5. 50 PRINT"           [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":
  6. 60 PRINT"              FOR MSD DRIVES"
  7. 70 PRINT"[154]  THIS PROGRAM MAKES THE DIRECTORY OF A"
  8. 80 PRINT"    DISK INVISIBLE WHEN LOADED WITH"
  9. 90 PRINT"               LOAD";CHR$(34);"$";CHR$(34);
  10. 100 PRINT",8":PRINT"          PRESS A KEY TO START [146]"
  11. 110 GETIN$:IFIN$=""THEN110
  12. 120 PRINT"[147]                 MENU [146]"
  13. 130 PRINT"        1 - REMOVE DIRECTORY"
  14. 140 PRINT"        2 - RECOVER DIRECTORY"
  15. 150 PRINT"        3 - QUIT"
  16. 160 PRINT"        YOUR CHOICE ?"
  17. 170 GETIN$:IFIN$<"1"ORIN$>"3"THEN170
  18. 180 IFIN$="3"THENCLOSE2:CLOSE15:PRINT"[147]":END
  19. 190 PRINT"DEVICENUMBER : ";PEEK(186);:INPUT"[157][157][157][157]";DV
  20. 200 OPEN15,DV,15,"I0":OPEN2,DV,2,"#":GOSUB260
  21. 210 IFIN$="2"THEN560
  22. 220 PRINT"[147] REMOVE DIRECTORY "
  23. 230 PRINT" WORKING...... "
  24. 240 DIM A$(15),NB(2)
  25. 250 GOTO280
  26. 260 INPUT#15,EN,EM$,ET,ES:IFEN<01THENRETURN
  27. 270 PRINT"DISK ERROR[146]"EN;EM$,ET;ES:END
  28. 280 T=18:S=0
  29. 290 W=5
  30. 300 W=W*32:DIMB$(W)
  31. 310 PRINT#15,"U1:"2;0;T;S
  32. 320 FORA=0TOW:GET#2,B$(A)
  33. 330 IFB$(A)=""THENB$(A)=CHR$(0)
  34. 340 NEXT:A$=""
  35. 350 D=5
  36. 360 IFD*32>WANDD<>9THEN350
  37. 370 D=(D-1)*32:IFD>255THEN460
  38. 380 K$="J"
  39. 390 FORA=D+16TO(D+19)
  40. 400 A$="14":GOSUB520
  41. 410 PRINT#15,"B-P:"2;A
  42. 420 PRINT#2,CHR$(A3):NEXT
  43. 430 FORA=D+19TO(D+31)
  44. 440 A$="00":GOSUB520
  45. 450 PRINT#15,"B-P:"2;A
  46. 460 PRINT#2,CHR$(A3):NEXT
  47. 470 PRINT#15,"U2:"2;0;T;S:GOSUB260
  48. 480 PRINT#15,"I0"
  49. 490 PRINT" OKAY......... [146]"
  50. 500 CLOSE2:CLOSE15
  51. 510 FORX=1TO1000:NEXTX:GOTO120
  52. 520 A1$=LEFT$(A$,1):A2$=MID$(A$,2,1)
  53. 530 A1=ASC(A1$)-48+(ASC(A1$)>64)*7
  54. 540 A2=ASC(A2$)-48+(ASC(A2$)>64)*7
  55. 550 A3=16*A1+A2:A$="":RETURN
  56. 560 REM RECOVER DIRECTORY
  57. 570 PRINT"[147] RECOVER DIRECTORY"
  58. 580 INPUT"NEW DISK-NAME";DN$:DN$=DN$+R$:DN$=LEFT$(DN$,16)
  59. 590 PRINT" WORKING ... [146]"
  60. 600 B=144
  61. 610 PRINT#15,"M-W"CHR$(136)CHR$(76)CHR$(1)CHR$(65)
  62. 620 PRINT#15,"U1:";2;0;18;0
  63. 630 FORA=1TOLEN(DN$):N=ASC(MID$(DN$,A,1))
  64. 640 PRINT#15,"B-P:";2;B
  65. 650 PRINT#2,CHR$(N):B=B+1:NEXT
  66. 660 PRINT#15,"U2:";2;0;18;0:GOSUB260:PRINT#15,"I0":CLOSE2:CLOSE15
  67. 670 PRINT" DONE ...... [146]"
  68. 680 FORX=1TO1000:NEXT:GOTO120
  69.